home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / FILETEST.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  645b  |  47 lines
  1. $INCLUDE "REGNAMES.INC"
  2.  
  3. REG %AX,(1*256)+26
  4. CALL INTERRUPT &H0B
  5. o=REG(%DI)
  6.  
  7. DEF SEG = &HD400
  8. POKE o+0,ASC("M")
  9. POKE o+1,ASC(":")
  10. POKE o+2,ASC("t")
  11. POKE o+3,ASC("d")
  12. POKE o+4,0
  13.  
  14. REG %BX,2
  15. REG %AX,0*256
  16. ?"Call"
  17. CALL INTERRUPT &H49
  18. ?"ok"
  19. ok=REG(%AX)
  20. ?"Okay=";ok
  21. ?"FH=";REG(%BX)
  22. IF ok=10000 THEN
  23.  ?"Okay !!"
  24.  fh=REG(%BX)
  25.  
  26.  for i=o to o+100
  27.   poke i,ASC("T")
  28.  next
  29.  REG %BX,fh
  30.  REG %CX,100
  31.  REG %AX,3*256
  32.  CALL INTERRUPT &H49
  33.  le=REG(%BX)
  34.  IF le=100 THEN ?"Write Okay" else ?"WRITE ERROR ";le
  35.  
  36.  ?"Cl"
  37.  REG %BX,fh
  38.  REG %AX,1*256
  39.  CALL INTERRUPT &H49
  40.  ?"CLOkay"
  41. ELSE
  42.  ?"Fehler"
  43. end if
  44. ?"<< Taste >>"
  45. end
  46.  
  47.